Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Text
Imports System.Collections.Generic
Imports ASPNET.StarterKit.BusinessLogicLayer

Partial Public Class Report_Resources_Result_aspx
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    End Sub

    Protected Sub OnListUserTimeEntriesItemCreated(ByVal sender As Object, ByVal e As DataListItemEventArgs) Handles UserList.ItemCreated

        If e.Item.ItemType = ListItemType.Item OrElse e.Item.ItemType = ListItemType.AlternatingItem Then
            Dim ds As ObjectDataSource = TryCast(e.Item.FindControl("TimeEntryData"), ObjectDataSource)
            If Not ds Is Nothing AndAlso (Not DataBinder.Eval(e.Item.DataItem, "UserName") Is Nothing) Then
                ds.SelectParameters("userName").DefaultValue = DataBinder.Eval(e.Item.DataItem, "UserName").ToString()
            End If
        End If

    End Sub

End Class
